home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / dviware / dvitovdu32 / src / pascal / dv. < prev    next >
Text File  |  1991-11-10  |  6KB  |  181 lines
  1. #!/bin/csh -f
  2. #
  3. # Andrew Trevorrow, October 1988
  4. # This shell script runs one of the dv-* programs based on
  5. # the value of the -v option (or TERM if not given).
  6. # Search for SYSDEP to locate site-specific values that you may want to change.
  7. #
  8. set dvdir = (/usr/users/applied/staff/atrevorr/dv)           # SYSDEP
  9. set vdu   = $TERM                                            # changed by -v
  10. set res   = 300                                              # SYSDEP
  11. set tfm   = (-t /usr/local/lib/tex/fonts/)                   # SYSDEP
  12. set ps    = (-p ps-)                                         # SYSDEP
  13. set pk    = (-f /usr/local/bin/dvitovdu/pk/)                 # SYSDEP
  14. set dummy = (-d cmr10.300pk)                                 # SYSDEP
  15. set help  = (-h /usr/users/applied/staff/atrevorr/dv/help)   # SYSDEP
  16. set xsize = (-x 210mm)                                       # SYSDEP
  17. set ysize = (-x 210mm)                                       # SYSDEP
  18. set mag                                                      # changed by -m
  19. set hoff                                                     # changed by -ho
  20. set voff                                                     # changed by -vo
  21. set land                                                     # changed by -1
  22. set file
  23. #
  24. # Parse command line and set various parameters.
  25. #
  26. @ i = 1
  27. while ($i <= $#argv)
  28.    set arg = "$argv[$i]"
  29.    if ("$arg" =~ -*) then        # arg must be an option
  30.       if ("$arg" == '-v') then
  31.          @ i++
  32.          if ($i > $#argv) then
  33.             echo 'Missing value after -v\!'
  34.             exit(1)
  35.          endif
  36.          set vdu = "$argv[$i]"
  37.       else if ("$arg" == '-r') then
  38.          @ i++
  39.          if ($i > $#argv) then
  40.             echo 'Missing integer after -r\!'
  41.             exit(1)
  42.          endif
  43.          set res = (-r "$argv[$i]")
  44.       else if ("$arg" == '-m') then
  45.          @ i++
  46.          if ($i > $#argv) then
  47.             echo 'Missing integer after -m\!'
  48.             exit(1)
  49.          endif
  50.          set mag = (-m "$argv[$i]")
  51.       else if ("$arg" == '-ho') then
  52.          @ i++
  53.          if ($i > $#argv) then
  54.             echo 'Missing dimension after -ho\!'
  55.             exit(1)
  56.          endif
  57.          set hoff = (-H "$argv[$i]")               # options.p uses -H
  58.       else if ("$arg" == '-vo') then
  59.          @ i++
  60.          if ($i > $#argv) then
  61.             echo 'Missing dimension after -vo\!'
  62.             exit(1)
  63.          endif
  64.          set voff = (-V "$argv[$i]")               # options.p uses -V
  65.       else if ("$arg" == '-x') then
  66.          @ i++
  67.          if ($i > $#argv) then
  68.             echo 'Missing dimension after -x\!'
  69.             exit(1)
  70.          endif
  71.          set xsize = (-x "$argv[$i]")
  72.       else if ("$arg" == '-y') then
  73.          @ i++
  74.          if ($i > $#argv) then
  75.             echo 'Missing dimension after -y\!'
  76.             exit(1)
  77.          endif
  78.          set ysize = (-y "$argv[$i]")
  79.       else if ("$arg" == '-l') then
  80.          set land = -l
  81.       else if ("$arg" == '-t') then
  82.          @ i++
  83.          if ($i > $#argv) then
  84.             echo 'Missing directory after -t\!'
  85.             exit(1)
  86.          endif
  87.          set tfm = (-t "$argv[$i]")
  88.       else if ("$arg" == '-p') then
  89.          @ i++
  90.          if ($i > $#argv) then
  91.             echo 'Missing string after -p\!'
  92.             exit(1)
  93.          endif
  94.          set ps = (-p "$argv[$i]")
  95.       else if ("$arg" == '-f') then
  96.          @ i++
  97.          if ($i > $#argv) then
  98.             echo 'Missing directory after -f\!'
  99.             exit(1)
  100.          endif
  101.          set pk = (-f "$argv[$i]")
  102.       else if ("$arg" == '-d') then
  103.          @ i++
  104.          if ($i > $#argv) then
  105.             echo 'Missing filename after -d\!'
  106.             exit(1)
  107.          endif
  108.          set dummy = (-d "$argv[$i]")
  109.       else if ("$arg" == '-h') then
  110.          @ i++
  111.          if ($i > $#argv) then
  112.             echo 'Missing filename after -h\!'
  113.             exit(1)
  114.          endif
  115.          set help = (-h "$argv[$i]")
  116.       else
  117.          echo 'Unknown option:' $arg
  118.          exit(1)
  119.       endif
  120.    else
  121.       # arg does not start with '-' so assume it is file
  122.       set file = "$arg"
  123.    endif
  124.    @ i++
  125. end
  126. if ($file == '') then
  127.    echo 'File not given\!'
  128.    exit(1)
  129. endif
  130. #
  131. if ("$vdu" == 'aed512') then
  132.    $dvdir/dv-aed512 -v $vdu $res $mag \
  133.    $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
  134. else if ("$vdu" == 'regis' | "$vdu" == 'vt240' | "$vdu" == 'gigi' | \
  135.          "$vdu" == 'vk100' | "$vdu" == 'vt125') then
  136.    $dvdir/dv-regis -v $vdu $res $mag \
  137.    $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
  138. else if ("$vdu" == 'vis240' | "$vdu" == 'vis241') then
  139.    $dvdir/dv-vis240 -v $vdu $res $mag \
  140.    $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
  141. else if ("$vdu" == 'vis500') then
  142.    $dvdir/dv-vis500 -v $vdu $res $mag \
  143.    $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
  144. else if ("$vdu" == 'vis550') then
  145.    $dvdir/dv-vis550 -v $vdu $res $mag \
  146.    $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
  147. else if ("$vdu" == 'vt100' | "$vdu" == 'vis102') then
  148.    $dvdir/dv-vt100 -v $vdu $res $mag \
  149.    $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
  150. else if ("$vdu" == 'vt100132') then
  151.    $dvdir/dv-vt100132 -v $vdu $res $mag \
  152.    $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
  153. else if ("$vdu" == 'vt220' | "$vdu" == 'vt200') then
  154.    $dvdir/dv-vt220 -v $vdu $res $mag \
  155.    $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
  156. else if ("$vdu" == 'vt640') then
  157.    $dvdir/dv-vt640 -v $vdu $res $mag \
  158.    $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
  159. else if ("$vdu" == 'vis603') then
  160.    $dvdir/dv-vis603 -v $vdu $res $mag \
  161.    $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
  162. else if ("$vdu" == 'vis630') then
  163.    $dvdir/dv-vis630 -v $vdu $res $mag \
  164.    $tfm $ps $pk $dummy $help $hoff $voff $xsize $ysize $land $file
  165. else
  166.    echo 'Bad -v value:' "$vdu"
  167.    echo 'Specify one of the following:'
  168.    echo '   aed512'
  169.    echo '   regis      (or gigi, vk100, vt125, vt240)'
  170.    echo '   vis240     (or vis241)'
  171.    echo '   vis500'
  172.    echo '   vis550'
  173.    echo '   vis603'
  174.    echo '   vis630'
  175.    echo '   vt100      (or vis102)'
  176.    echo '   vt100132'
  177.    echo '   vt220      (or vt200)'
  178.    echo '   vt640'
  179.    exit(1)
  180. endif
  181.